COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(LAP SETEXPR SUBR) 
C00004 ENDMK
C⊗;
(LAP SETEXPR SUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL PLATE)) 
       (PUSH P 1) 
       (MOVEM 2 0 P) 
       (PUSH P (C 0 0 TAG1 0)) 
       (CALL 1 (E CDDDR)) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (MOVE 1 2) 
       (CALL 1 (E NCONS)) 
       (MOVEI 2 (QUOTE EXPR)) 
       (CALL 2 (E XCONS)) 
       (CALL 1 (E NCONS)) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (PUSH P (SPECIAL PLATE)) 
       (JCALL 16 (E NCONC)) 
 TAG1  (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E ALTERTEXT)) 
       (PUSH P 1) 
       (HLRZ@ 1 (SPECIAL PLATE)) 
       (EXCH 1 -1 P) 
       (CALL 1 (E FLATSIZE)) 
       (MOVE 2 -1 P) 
       (CALL 2 (E *PLUS)) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E ALTERCOL)) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 (SPECIAL PLATE)) 
       (HRRZ@ 1 1) 
       (HLRZ@ 2 1) 
       (HLRZ@ 1 (SPECIAL PLATE)) 
       (CALL 2 (E MAX)) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E ALTERWDTH)) 
       (JRST 0 SPECSTR) 
       NIL